home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 November / Pcwk1197.iso / LOTUS / Eng-ins / SMASTERS / APPROACH / CHECKBK.MPR / SCRIPT / ApproachDoc / Data Entry Screen / Body / CheckRadio.s (.txt) < prev    next >
Null Bytes Alternating  |  1997-01-09  |  5KB  |  58 lines
  1. '++LotusScript Development Environment:2:5:(Options):0:66
  2.  
  3. '++LotusScript Development Environment:2:5:(Forward):0:1
  4. Declare Sub Click(Source As Radiobutton, X As Long, Y As Long, Flags As Long)
  5. Declare Sub Mousedown(Source As Radiobutton, X As Long, Y As Long, Flags As Long)
  6.  
  7. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8.  
  9. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10. Private Sub BindEvents(Byval Objectname_ As String)
  11.     Static Source As RADIOBUTTON
  12.     Set Source = Bind(Objectname_)
  13.     On Event Click From Source Call Click
  14.     On Event Mousedown From Source Call Mousedown
  15. End Sub
  16.  
  17. '++LotusScript Development Environment:2:2:Click:1:12
  18. Sub Click(Source As Radiobutton, X As Long, Y As Long, Flags As Long)
  19.     'source.checknumber.visible=True
  20.     'source.depositnumber.visible=False
  21.     If currentview.name="Data Entry Screen" Then
  22.         If currentview.body.commitflag.text="1" Then
  23.             currentview.body.voidbutton.text="Remove this transaction from the balance"
  24.             If (currentview.body.transtype.text=("") Or (currentview.body.transtype.text="None")) Then
  25.                 Messagebox("You must specify a transaction type of Check, Deposit, or Misc Withdrawl.")
  26.                 currentview.body.checkradio.setfocus
  27.             Else
  28.                 If currentview.body.voidbutton.text="Remove this transaction from the balance"  Then
  29.                     removemessage
  30.                     currentview.body.voidbutton.setfocus
  31.                     If currentview.body.transtype.text <> currentview.body.holder.text Then
  32.                         currentview.body.transtype.text=currentview.body.holder.text
  33.                     End If
  34.                 End If
  35.             End If
  36.         Else
  37.             currentview.body.voidbutton.text="Apply this transaction to the balance"
  38.         End If
  39.         If currentview.body.Transtype.text="Check" Then
  40.             currentview.body.Checknumber.visible=True
  41.             currentview.body.Depositnumber.visible=False
  42.         Else
  43.             If currentview.body.Transtype.text="Deposit" Then
  44.                 currentview.body.Checknumber.visible=False
  45.                 currentview.body.Depositnumber.visible=True
  46.             Else
  47.                 currentview.body.Checknumber.visible=False
  48.                 currentview.body.Depositnumber.visible=False
  49.             End If
  50.         End If
  51.     End If
  52.     currentwindow.repaint
  53.     RunApproachMacro("SetCheckNumber")
  54. End Sub
  55. '++LotusScript Development Environment:2:2:Mousedown:1:12
  56. Sub Mousedown(Source As Radiobutton, X As Long, Y As Long, Flags As Long)
  57.     source.holder.text=source.transtype.text
  58. End Sub